home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b8.d64 / demo 2.2.l < prev    next >
Text File  |  2007-02-28  |  440b  |  20 lines
  1. 0010 SETGRAPHIC 0
  2. 0020 BACKGROUND 11
  3. 0030 CLEAR 
  4. 0040 FOR T'SIZE:=0 TO 10 DO
  5. 0050 TURTLESIZE T'SIZE
  6. 0060 FOR WAIT:=1 TO 10 DO NULL
  7. 0070 ENDFOR T'SIZE
  8. 0080 FOR BLINK:=1 TO 10 DO
  9. 0090 HIDETURTLE 
  10. 0100 FOR WAIT:=1 TO 75 DO NULL
  11. 0110 SHOWTURTLE 
  12. 0120 ENDFOR BLINK
  13. 0130 FOR T'COLOR:=0 TO 15 DO
  14. 0140 PENCOLOR T'COLOR
  15. 0150 FOR WAIT:=1 TO 90 DO NULL
  16. 0160 ENDFOR T'COLOR
  17. 0170 FOR T'TURN:=0 TO 360 STEP 6 DO
  18. 0180 SETHEADING T'TURN
  19. 0190 ENDFOR T'TURN
  20.